home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / artience / mips / picture.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-06-15  |  720 b   |  9 lines
  1. 10  DATA "M.I.P.S.","M.I.P.S.","Multiplied","Intelligence","Personnel","Simulator","            ",""
  2. 20  KEY OFF:CLS:GOSUB 70:SCREEN 1:FOR X= 0.1 TO 31.4 STEP 0.345:A=X*5:LINE (168-A,55)-(8+A,55+SIN(X)*47):B=142+(SIN(X/2.5)-0.1)*47:LINE (152+A,B)-(311-A,B):NEXT
  3. 30  LOCATE 18,5:PRINT"Michael Reed";:LOCATE 19,4:PRINT "Copyright 1987":LINE (0,190)-(319,190):LINE (319,190)-(319,0):LINE (319,0)-(0,0):LINE (0,0)-(0,190):LOCATE 25,8:PRINT"Press any key to continue";:T=TIMER
  4. 40  C=TIMER:IN$="":WHILE IN$="":IN$=INKEY$:IF TIMER>C+1 THEN C=TIMER:READ A$:IF LEN(A$)=0 THEN RESTORE:GOTO 20 ELSE LOCATE 7,24:IF A$<>B$ THEN PRINT SPC(14);:LOCATE 7,31-LEN(A$)/2:PRINT A$;:B$=A$
  5. 50  WEND
  6. 60  WIDTH 80:CLS:SYSTEM
  7. 70  SCREEN 2:CLS:LOCATE 12,17:PRINT"This is a BASIC program executed from M.I.P.S."
  8. 80  FOR Y=0 TO 99 STEP 3:X=Y*3.2:LINE (0,Y)-(X,199):LINE -(639,199-Y):LINE -(639-X,0):LINE -(0,Y):NEXT:T=TIMER+2:WHILE T>TIMER:WEND:RETURN
  9.